Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/REALEST8.FCP

Text File | 1990-09-23 | 4KB | 313 lines

@DSPLY "Real Estate Analysis"
@GET "1=Part1,2=Part2,3=Part3"
@MIN
@IF =
2=
@NEW STEP
@GOTO (9)
=
@NEW STEP
@MOUT
@IF =
3=
@NEW STEP
@GOTO (27)
=
@NEW STEP
@GET "Purchase price"
@RIN (1)
@GET "Down payment"
@RIN (2)
@GET "Mortgage"
@RIN (3)
@GET "Points (%)"
@%
*
@ROUT (3)
=
@NEW STEP
@RIN (4)
@GET "Closing costs, expenses"
@RIN (5)
0
@DSPLY "* Amortization Next *"
@AMORT
@DSPLY "MORTGAGE PAYMENT/MO."
*12=
@NEW STEP
@RIN (6)
@DSPLY "ANNUAL MORTGAGE PAYMENT"
@ROUT (4)
@DSPLY "POINTS"
+
@ROUT (5)
=
@NEW STEP
@RIN (5)
@DSPLY "TOTAL INITIAL EXPENSES"
=
@NEW STEP
@GET "Year # to calculate"
@RIN (4)
@GET "Average rent/unit/mo."
@RIN (10)
@GET "# of rental units"
@RIN (9)
@GET "Vacancy/bad debt %"
@RIN (8)
@ROUT (10)
*
@ROUT (9)
*12*(100-
@ROUT (8)
)=
@NEW STEP
@%
@MIN
@GET "Other income"
@M+
@MOUT
@RIN (10)
@GET "Real estate taxes"
@MIN
@GET "Insurance"
@M+
@GET "Management costs"
@M+
@GET "Maintenance + repairs"
@M+
@GET "Utilities"
@M+
@GET "Other expenses"
@M+
@ROUT (10)
@DSPLY "GROSS OPERATING INCOME"
@MOUT
@DSPLY "OPERATING EXPENSES"
@ROUT (10)
-
@MOUT
=
@NEW STEP
@RIN (7)
@DSPLY "NET OPERATING INCOME"
0
@DSPLY "* Annual Interest Next*"
@PINTR
@DSPLY "MORTGAGE INTEREST"
@MIN
@ROUT (6)
-
@MOUT
=
@NEW STEP
@RIN (3)
@GET "Depreciation"
@M+
@ROUT (7)
-
@MOUT
=
@NEW STEP
@RIN (8)
@GET "Income tax %"
@%
*
@ROUT (8)
=
@NEW STEP
@RIN (9)
@ROUT (7)
-
@ROUT (6)
=
@NEW STEP
@MIN
@ROUT (4)
@IF >
1=
@NEW STEP
@GOTO (18)
=
@NEW STEP
@ROUT (5)
@M-
=
@NEW STEP
@MOUT
-
@ROUT (9)
=
@NEW STEP
@RIN (10)
@GET "Appreciation % (+/-)"
@%
*
@ROUT (1)
=
@NEW STEP
@RIN (5)
@MOUT
@DSPLY "CASH FLOW BEFORE TAX"
@ROUT (8)
@DSPLY "TAXABLE INCOME"
@ROUT (9)
@DSPLY "INCOME TAX LIABILITY"
@ROUT (10)
@MIN
@DSPLY "CASH FLOW AFTER TAX"
@ROUT (3)
@DSPLY "MORTGAGE PRINCIPAL"
+
@ROUT (5)
=
@NEW STEP
@RIN (3)
@M+
@ROUT (5)
@DSPLY "CHANGE IN VALUE"
+
@ROUT (1)
=
@NEW STEP
@RIN (1)
@DSPLY "CURRENT VALUE"
@ROUT (3)
@DSPLY "CHANGE IN EQUITY"
+
@ROUT (2)
=
@NEW STEP
@RIN (2)
@DSPLY "TOTAL EQUITY"
@MOUT
@DSPLY "TOTAL YIELD"
@ROUT (4)
@DSPLY "End Year #"
@GET "0=Quit,2=Again,3=Part3"
@MIN
@IF =
2=
@NEW STEP
@GOTO (9)
=
@NEW STEP
@MOUT
@IF =
0=
@NEW STEP
@GOTO (48)
=
@NEW STEP
0
@RIN (1)
@GET "1=Rate,2=PV,3=Net PV"
@MIN
@IF =
2=
@NEW STEP
@GOTO (36)
=
@NEW STEP
@MOUT
@IF =
3=
@NEW STEP
@GOTO (40)
=
@NEW STEP
@GET "Year # to calculate"
@MIN
@GET "Income factor value"
@RIN (3)
@GET "Basis factor value"
@RIN (4)
@MOUT
@DSPLY "For year number"
@ROUT (3)
/
@ROUT (4)
=
@NEW STEP
@RIN (5)
@DSPLY "RATE OF RETURN"
@GET "0=Quit,1=Rate,2=PV"
@MIN
@IF =
1=
@NEW STEP
@GOTO (31)
=
@NEW STEP
@MOUT
@IF =
0=
@NEW STEP
@GOTO (48)
=
@NEW STEP
@DSPLY "* Present Value Next *"
@PV
@DSPLY "PRESENT VALUE"
@GET "1=Rate,2=PV,3=Net PV"
@MIN
@IF =
2=
@NEW STEP
@GOTO (36)
=
@NEW STEP
@MOUT
@IF =
1=
@NEW STEP
@GOTO (31)
=
@NEW STEP
@GET "Down payment"
+
@GET "Total intital expenses"
=
@NEW STEP
@RIN (2)
=
@NEW STEP
@GET "Year # to calculate"
@MIN
@GET "PV of income"
+
@ROUT (1)
=
@NEW STEP
@RIN (1)
@GET "PV of mortgage payment"
+
@ROUT (2)
=
@NEW STEP
@RIN (2)
@MOUT
@DSPLY "For year number"
@ROUT (1)
-
@ROUT (2)
=
@NEW STEP
@DSPLY "NET PRESENT VALUE"
@ROUT (1)
/
@ROUT (2)
=
@NEW STEP
@DSPLY "RELATIVE RATIO"
@GET "0=Quit,3=Net PV"
@IF =
3=
@NEW STEP
@GOTO (42)
=
@NEW STEP
0
@MIN
@STOP